unit Tlb;

interface
uses STL_base, List, stack;
Type Tlibrary = record
  handle: Cardinal;
  loaded, valid: boolean;
  path, name: string;
  functions: _List;
  id: byte;
end;
Plibrary = ^Tlibrary;
implementation
{$IFDEF WINDOWS}
  uses SysUtils, Windows;
{$ELSE}
  uses SysUtils;
{$ENDIF}
ar: array[1..maxn] of Tlibrary;

procedure validator(var lb: Plibray): loaded;
var
  dir :string;
begin
  lb^.valid := false;
  if (lb = nil) then exit;// invalid Library;
  dir := sysutils.extractpath(lb^.path);
  if (Exists_file(dir+'\'+lb^.name+'.conf'))then
    lb^.valid := parse_add(lb, dir+'\'+lb^.name+'.conf')
end;

end.
 